home *** CD-ROM | disk | FTP | other *** search
- # -*- mode: shell-script; sh-basic-offset: 8; indent-tabs-mode: t -*-
- # ex: ts=8 sw=8 noet filetype=sh
- #
- # bash programmable completion for various Common Lisp implementations by
- # Nikodemus Siivola <nikodemus@random-state.net>
-
- _gcl()
- {
- local cur
-
- COMPREPLY=()
- cur=`_get_cword`
-
- # completing an option (may or may not be separated by a space)
- if [[ "$cur" == -* ]]; then
- COMPREPLY=( $( compgen -W '-eval -load -f -batch -dir -libdir \
- -compile -o-file -c-file -h-file -data-file -system-p '\
- -- $cur ) )
- else
- _filedir
- fi
-
- return 0
- }
- complete -F _gcl -o default gcl
-